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ILCOMPUTER 
DIRETTAMENTE 
DAL COMPUTER 


per Commodore 64 





In questa lezione vediamo le nuove istruzioni per il SUONO, 
che semplificheranno notevolmente la programmazione; 
questo perchè non dovrai più ricorrere all'istruzione POKE 
e memorizzare i valori che regolano i suoni all'interno delle 
locazioni del SID. 





serve per suonare una sequenza di note musicali. 

Dovrà essere usato nel seguente Modo: PLAY “STRINGA”. 

STRINGA indica le note che devono essere suonate e 

naturalmente può anche essere costituita da una variabile 

stringa. 

Per rappresentare una nota vengono usati al Massimo 4 

carafferi. 

1) Specifica quale voce deve suonare la nota nel Modo: 
VOCE 1 = CTRL 1 


VOCE2=CTRL2 {N 
VOCE3=CTRL3 |} 


2) Indica la nota che deve essere suonata, usando il 


sistema anglosassone: Ce 


cow *nan 
“06039 


Per ottenere i diesis basterà scrivere i caratteri delle note in 
Maiuscolo. 
R oppure - indicano una pausa. 


9) Indica il numero dell'ottava e comprende un numero tra 
De7. 

4) Rappresenta la durata della nota e per ottenerla 
bisognerà usare i tasti di funzione come nella seguente 
tabella: 


breve =F1 G 
semibreve =F9 IG 
minima = F5 [d 
semiminima =F7 [I] 
croma =F2 O 
semicroma =F4 MÉ 
biscroma = F6 [4 
semibiscroma = F8 [I 





serve per posizionare il tempo specificando il numero di 
seMiminime (valore di una nota o di una pausa 
corrispondente a 1 / 4 dell'intero) eseguite in un minuto. 
Dovrà essere usato nel Modo: TEMPO T. 


serve per posizionare il volume al livello desiderato. Dovrà 
essere usato nel Modo: VOL V. 








serve per specificare la forma d'onda di una voce. Dovrà 
essere usato nel Modo: WAVE V,F. 





serve per specificare l’ADSR di una determinata voce. 
Dovrà essere usato nel Modo: ENVELOPE V, A, D, S, R. 





permette di suonare una singola nota. 

Un vantaggio dell'istruzione SOUND rispetto al PLAY è 
quello di poter usare come parametri valori numerici e non 
stringhe. 

Dovrà essere usata nel seguente Modo: SOUND V, O, N, D.. 


NB: Ogni volta che si vorranno utilizzare le istruzioni 
occorrerà prima caricare il programma HELP allegato 
alla lezione 31. 


PROGRAMMIAMO INSIEME (CBM 64) 
ISTOGRAMMI 1° PARTE 

1A poke532809,9:poke53281,9 

15 printchr$(142) "=ERXE6l" 

209 print" 9 AGG AGG GOG QGA CAO GEA AAA GA" 
Co print Be Oo cao GG G G GG Ga a" 


30 

35 

40 

45 

59 

da" 

ate) 

69 

100 
119 
170 
180 
199 
2009 
219 
215 
CL 
229 
eee 
225 
239 
240 
259 
260 
270 
289 
299 
300 
319 
329 
339 
340 
359 
360 


370 
3809 
399 


409 
419 
429 
4339 
340 
445 
459 
460 


print" G 000 Oa GGAOa GOG GGG Q 
print" G GOG GG GaGAG GG AGO 
print" O QGG Q GGG Aa OAGAGA A 
printtabc(12) "E sEEP rodotto dallasel’ 

printtab(7)"ged ZSrnd Zid Za d Ssrl 


aaa 
Gaa" 
QGaa 





printtab(9)"sEEERrti grafiche ricordi” 
gety£:ify£s=""then69 
pokeS3289,9:poke53281,7 

print "Zi" 
dimnn$(19,12),q99$£(19,12),vv(19,12) 
dimn$&(12),b$(12),v(12),q9$(12) 
dimt{(12),1C(12),y$(12),nc$(12),vcC12) 
r$s=chr£(13):ec=29:dyv=09 
print"Zi":poke53289,9 

printtabc(9ò >"Seei—______—_—_ I" 


printtabc9) "Raiz Mia” 
printtab(9)"Ziliz) i s togsgrammi Mia" 
printtabc9) "agis Mia" 


printtab (908  _ fl" 
printtab(8) "sEEcei scegli una opzione:" 
printtab(8) "SEC s i # inserimento" 
printtab£8) "E i c d caricamento" 
primttabc8) "SE 3 f ff fine programma" 
getz$ 

ifz$="f"thenpoKke53289,6:g90t0320 
ifz$="c"thenpoke53280,11:!got01919 
ifz$="i"thenpoke53280,9:got0o389 

goto279 

print"Zif"tab(12) "SEM fine programma sil” 
printtab(12)"FEERei sicuro (s/n3?" 
getz$ 

ifz$&="s "thenend 

ifz£="n"then219 

goto349 

print"asi"tab (14) "SEG istogrammi ail 
print"SEtt itolo istogramma " 

input "El':;a£ 

input "EEhumero di barre (1-12)":5z 

if (z{1)+(z>12)then389 

input "EEDPalore minimo ORBBI":;mi 

input "EsEBbDbalore massimo ":im 

if (mi>=m)+(m>9999999)then389 
ifz=ietheni68s0 

print"S" 


479 forr=itoz:b$&(pr)="" 

489 print"barra numero "sr 

499 print"SEEee»alore minimo ="5mi 

599 print "SEeeewalore massimo="5m 

519 print"SfEbel nome ":print"£8 valore":iprint"£# simbolo 
529 print"SE = 
se=3 id ‘9 au” 
539 print"SE 2 "5:90sub3499 

pa PE Zu ifleft$(n$, Sr BAL le 1(r>=1l:goto560 
549 print"SE EE J di" :9305ub3460 

559 print"S ° i”: :3osub 3550 

569 print "=@Bl" :nextr 

579 30sub3600 

1689 print "Z66el" 

1699 print"hai scelto 12 barre. vuoi usarle 

come " 

17909 print"f@#li 12 mesi dell'anno?” 

1719 input"S} ispondi (s/n) "?’ca$ 

1729 ifca#$="s"then1i740 

1739 ifca$="n"then460 

1749 print"S" 

1759 forr=itoz:b$&(r)="" 

1779 n$(1)="gennaio "in$(2)="febbraio "in$(3)="marzo 





simbolo: 1=5hoE®uw 









"in$(4)= "aprile = 
17809 n$(5)= "maggio "in$(6)="giugno "in$(7)="luglio 
"in$(8)="agosto * 


17909 n$(9)="settembre":in${(129)= "ottobre - 

1899 nf£(11>)="novembre "in$(12)="dicembre " 

1819 print"barra numero ":r 

1829 print"SEee”walore minimo =":;mi 

1839 print "SEeeEewalore mass imo=":5m 

1849 print "SEcei nome":print"f valore ":!print"@i 
simbolo" 
1859 print "SEEe 3 
wic=3 td 3 da 
1859 print "SE FECE 
1870 print "S 
1889 print "SE 
1399 print"Z"inextr: ea 
1909 acto589 

2499 inputnse 

3419 ifn£="%"then3459 

3429 lego E =9then3440 
34930 = 2 





simbolo: 1=#/eRe 








iii i csubzico 
| i": :90sub3550 











3435 print "SEGCCECEEei nome - PIRRO SRO 
3449 iflenn£)<9Sthenn$=n$+left$: "ID ji] 
{n$)) 

3459 n$&(r)=sn$f:return 

3469 inputn$& 

34709 ee=0:fori=itolen(n$):z$=mid$(n$,i,1) 
3475 if((z$5<"0")+(z$>"9"))x(z$<>", ")thenee=-1 
3489 iflenn$£)>7then3520 

3499 nexti:ifee=-ithen35209 

3599 n=val n$) 

3519 if (n>=mi)*n<‘=m)then3540 

35209 E EEE 3 
” 
3530 2 2729 
3549 v(r)i=sn:return 
3559 inputns$& 

3569 if (n$<>"1")%x(n$<>"2")then3589 
3579 1(r>=valn$):return 





",9-len 








valore"::goto3460 





35809 o) 
3596 simbolo"::goto35509 
3600 

3619 print "iBBRRDD nome sim valore” 


3629 print"MhBbBBBBE EFFEEEEEEEE EEE EEEEEE" 
36539 forr=slitoz 

3540 ifr>9then3690 

3659 ifn$(r)="%"thenpr int "MERI" :r :nextr: 
goto3719 

36579 print "BBBBBDI":r:;" “ein$cr 5 "1 e) n) 
3680 nextr: goto3710 

3699 print "BBBBBeI ?r > "bi" nr); "1 e) lr) 
3799 nextr 

3719 print"SE 

37209 getz$ 

3730 ifz£="s "then3760 
37409 ifz$="n"thenreturn 
3759 goto3720 

3769 print"S 
ULI 
3779 input "SEbEcee 3 333 
37809 if r<1)+(r>z)then3760 
3799 print "Shomebi"in$ (re); "EBBIK s/n)?" 
3809 getz$& 

3819 ifz$="s "then3879 

3829 ifz#$="n"then3849 

38239 goto3800 








uoi correggere ‘(s/n)?” 





RquUale barra":r 


3840 
UL] 
3859 input "SES 

3869 90sub4989 

3879 print "SEECECECCECECECCECCEEÌ 
LL] 

3880 print"S 
s/n)?" 

3899 getz$ 
3909 ifz#$5="s "then3960 
3919 ifz$="n"then3930 
3929 goto3899 

3939 
LL] 
3949 input"E i 
39509 gosub4180 
3960 =-CEL 


3979 
3980 getz$ 

39909 ifz$="s "then3600 
40009 ifz$5="n"then49029 
4919 got0o3989 

309209 print"&S 
(L] 

49309 input "SE i 3 alore"in$ 
49409 if (wal ‘n$)>m)+(val (n$5)(mi)then4929 
30509 iflen(n65)>7then4920 

4959 90sub4130 

4979 gzot03600 




















alore"sur)5f "ok €“s/7/n)I?” 
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